VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} d_choose_font 
   Caption         =   "choose_font"
   ClientHeight    =   2970
   ClientLeft      =   45
   ClientTop       =   585
   ClientWidth     =   4710
   OleObjectBlob   =   "d_choose_font.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "d_choose_font"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False



Private Sub choose_font_Click()
On Error GoTo ErrorH
    
    'Show the Colour commondialog box...
    cd_choosefont.ShowFont
    'If an error occurs(usually when Cancel is clicked)
ErrorH:
End Sub

Private Sub UserForm_Activate()
End Sub

